Nuprl Lemma : R-interface-Rplus2 0,22

AB:Realizer.
Rplus?(A)
 (i:Id. R-da(Rplus-left(A);i) || R-da(Rplus-right(A);i))
 (R-interface(B;A R-interface(B;Rplus-left(A)) & R-interface(B;Rplus-right(A))) 
latex


DefinitionsRealizer, t  T, False, Id, x:AB(x), IdLnk, Knd, Type, R-da(R;i), rcv(l,tg), Void, f(x)?z, , Top, x:AB(x), x:AB(x), P & Q, P  Q, P  Q, @loc: only members of L read x, P  Q, f || g, es realizer ind Rrframe compseq tag def, b, Rplus-right(x1), Rplus-left(x1), Rplus?(x1), @lock sends only on links in L, es realizer ind Rbframe compseq tag def, @lock writes only members of L, es realizer ind Raframe compseq tag def, @loc precondition for a(v:T):P State(ds) v, es realizer ind Rpre compseq tag def, sends knd(v:T) on l:tagged(g,State(ds),v):dt, es realizer ind Rsends compseq tag def, @loc effect knd(v:T)  x := f State(ds) v , es realizer ind Reffect compseq tag def, only events in L send on lnk with tag, es realizer ind Rsframe compseq tag def, @loc only events in L change x:T, es realizer ind Rframe compseq tag def, @loc x initially v:T, es realizer ind Rinit compseq tag def, KindDeq, destination(l), x.A(x), xt(x), source(l), f  g, es realizer ind Rplus compseq tag def, True, Prop, left  right, , es realizer ind Rnone compseq tag def, left+right, s = t, Unit, type List, State(ds), a:A fp B(a), DeclaredType(ds;x), rec(x.A(x)), R-interface(A;B), f(x), x:AB(x), {x:AB(x) }, Atom$n, A, if b t else f fi, b, , x  dom(f), true, <a,b>, T, f(a)
Lemmassubtype rel wf, squash wf, fpf-join-cap-sq, btrue wf, eqtt to assert, iff transitivity, eqff to assert, assert of bnot, fpf-dom wf, fpf-trivial-subtype-top, bool wf, bnot wf, not wf, assert wf, fpf-ap wf, unit wf, decl-type wf, fpf wf, decl-state wf, Rplus wf, fpf-compatible wf, true wf, fpf-join wf, IdLnk wf, Id wf, lsrc wf, fpf-cap wf, Knd wf, R-da wf, ldst wf, Kind-deq wf, rcv wf, top wf, false wf, es realizer wf

origin